home *** CD-ROM | disk | FTP | other *** search
/ Aminet 33 / Aminet 33 - October 1999.iso / Aminet / dev / asm / Tandem.lha / Tandem / Teaching / 70.asm < prev    next >
Encoding:
Assembly Source File  |  1999-08-21  |  1.9 KB  |  64 lines
  1. * 70.asm  Attach Guide     version 0.01     8.6.99
  2.  
  3.  
  4.  include 'Front.i'
  5.  
  6.  
  7. ; The Help requester that comes up may also contain a "Guide" button that
  8. ; invokes an AmigaGuide to supplement the help you give. To do that:
  9. ;   1. set xxp_guid(a4) to point to the path of the guide
  10. ;      (if your program CD's to its progdir:, that can be the guide's
  11. ;       simple filename if it is in the Progdir:)
  12. ;   2. set xxp_node(a4) to point to the nodename (or 0 for contents)
  13. ;   3. set bit 7 of xxp_Help+2(a4)
  14. ;
  15. ; Thus, as well as setting xxp_Help with context sensitive help from time
  16. ; to time, you can at the same time set xxp_node(a4) to point to the
  17. ; relevent node name.
  18.  
  19.  
  20. guid: dc.b 'Tandem.guide',0 ;path of AmigaGuide
  21. node: dc.b 'help',0         ;node of Tandem.guide
  22.  ds.w 0
  23.  
  24.  
  25. strings: dc.b 0
  26.  dc.b 'Error: out of memory',0 ;1
  27.  dc.b 'This is just a dummy requester...',0 ;2
  28.  dc.b 'The idea, is for you to press the <Help> key.',0 ;3
  29.  dc.b 'When you do, Help will have 2 buttons:',0 ;4
  30.  dc.b ' ',0 ;5
  31.  dc.b '1. Guide - which should bring up the "help" node of Tandem.guide',0
  32.  dc.b '2. OK - which should close the Help requester',0 ;7
  33.  dc.b 'Data about Tandem/Teaching/70.asm',0 ;8
  34.  dc.b ' ',0 ;9
  35.  dc.b 'The program you are running is a demonstration of',0 ;10
  36.  dc.b 'tandem.library''s ability to display online help. To find out',0 ;11
  37.  dc.b 'more about how to attach context-sensitive online help, press',0 ;12
  38.  dc.b 'the "Guide" key below, which should display the "help" node',0 ;13
  39.  dc.b 'of Tandem.guide',0 ;14
  40.  
  41.  ds.w 0
  42.  
  43.  
  44. * demonstrate context-sensitive online help
  45. Program:
  46.  TLwindow #-1
  47.  beq Pr_bad
  48.  
  49.  move.w #8,xxp_Help(a4)     ;create context sensitive online help
  50.  move.w #7,xxp_Help+2(a4)
  51.  
  52.  move.l #guid,xxp_guid(a4)  ;cause Help to offer Tandem.guide
  53.  move.l #node,xxp_node(a4)
  54.  bset #7,xxp_Help+2(a4)
  55.  
  56.  TLreqinfo #2,#6            ;put up requester with online help
  57.  bra.s Pr_quit
  58.  
  59. Pr_bad:                     ;here if out of mem
  60.  TLbad #1
  61.  
  62. Pr_quit:
  63.  rts
  64.